(kkc-save-init-file): Locally bind print-length to nil.

diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index bfd8a079834792faaf519cb1ec5d44a8e011ca17..78d981affab910ae8965869c4550fffaf0570b28 100644 (file)
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -61,7 +61,8 @@ This string is shown at mode line when users are in KKC mode.")
   "Save initial setup code for KKC to a file specified by `kkc-init-file-name'"
   (if (and kkc-init-file-flag
           (not (eq kkc-init-file-flag t)))
-      (let ((coding-system-for-write 'iso-2022-7bit))
+      (let ((coding-system-for-write 'iso-2022-7bit)
+           (print-length nil))
        (write-region (format "(setq kkc-lookup-cache '%S)\n" kkc-lookup-cache)
                      nil
                      kkc-init-file-name))))